" 255 write-region process-send-string "\\r " process-send-region set-marker process-mark message "Incomplete expression: Not sent to gp."] 9))
(defun gp-interrupt nil "\
Interrupt gp.
This is identical to interrupt-shell-subjob in shell-mode." (interactive) (byte-code "À⇦ÂÀÁ\"" [nil t interrupt-process] 3))
(defun gp-set-prompt (p) "\
Set new gp prompt (and tell emacs that you have done so).
Do not put spaces in the argument, or emacs and gp will
have a different idea about what the prompt is." (interactive "sNew prompt: ") (byte-code "Â⇦Ã !ÄQ⇨⇦Åq⇦db⇦Æ Pc⇦Ç " [gp-prompt-pattern p nil regexp-quote "[
]*\\|" "*PARI*" "\\prompt=" gp-send-input] 4))
(defun gp-replace (a b) "\
Replace the regexp a by the string b everywhere in the current buffer" (byte-code "eb⇦ÃdÁ#ŶÄ
ÁÁ#⇦ŵ" [a t b re-search-forward replace-match] 6))
(defun gp-get-man-entry (fn) "\
Obtains the description of fn from chapter 3 of the manual.
Strips off some (not all) of the TeX syntax, and displays the result
in a new window.
If there is no entry for fn in the manual, sends ?fn to gp." (interactive "sFunction: ") (byte-code "Á⇦ÁÈ
Sends \\x to gp, then displays output in the help buffer.
Prints tree of addresses and contents of last object." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\x"] 2))
(defun gp-meta-v nil "\
Sends \\v to gp, then displays output in the help buffer.
Prints the version number of this implementation of pari-gp." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\v"] 2))
(defun gp-meta-s (num) "\
Sends \\s or \\s(num) to gp, then displays output in the help buffer.
Prints the state of the pari stack." (interactive "sNumber of longwords (default 0) ") (byte-code "Á⇦ÂÃ\"◰ÄÅ!ŵÄÆÇQ!" [num nil equal "" gp-meta-command "\\s" "\\s(" ")"] 6))
(defun gp-meta-b (num) "\
Sends \\b or \\b<num> to gp, then displays output in the help buffer.
Prints object %<num> in pretty format (unless \\p set)." (interactive "sPrint object (default last) %%") (byte-code "Á⇦ÂÃ\"◰ÄÅ!ŵÄÅP!" [num nil equal "" gp-meta-command "\\b"] 5))
(defun gp-meta-k nil "\
Sends \\k to gp.
Prompts for confirmation before
re-initialising gp and clearing the buffer." (interactive) (byte-code "Á⇦ÂÃ!Ŷ%Äq⇦db⇦Åc⇦ÆÇ!`\"⇦ÂÈ!Ŷ É ⇦ÊÅ\"⇦ËÌ!" [gp-process nil y-or-n-p "Re-initialise gp ? " "*PARI*" "\\k
Move down one line of the gp help menu. (Go to top if at the end.)" (interactive) (byte-code "À⇦Á ⇦ÂÃ!⇦mŶÄ ⇦eb" [nil gp-menu-info forward-line 1 ding] 4))
(defun gp-menu-previous nil "\
Move up one line of the gp help menu. (Go to bottom if at the top.)" (interactive) (byte-code "À⇦Á ⇦o◰Â ⇦db⇦Ã ŵÄÅ!" [nil gp-menu-info ding beginning-of-line forward-line -1] 5))
(defun gp-menu-quit nil "\
Switch the *PARI* buffer if it exists, or (other-buffer) if it does not." (interactive) (byte-code "Ã⇦ÄÅ!ÆÅ!◰Ç ⇦È!ŵ% ◰!É !ŵ%ÉÊ !*" [w b t nil get-buffer-window "*PARI*" get-buffer delete-window select-window switch-to-buffer other-buffer] 8))
(defun gp-menu-select nil "\
Select a subject from the main menu, or a manual entry from a subject menu." (interactive) (byte-code "Á⇦◰3Á⇨⇦Ã ⇦Ä ⇦Å`Æ ⇦`\"ÇÈÉ
Display the main menu." (interactive) (byte-code "Á⇦Ä ⇦Å ⇦eb⇦Æ`ÇÈ!⇦ÉÊ!\"⇦eb⇦Á⇨⇦Ã⇨" [done nil main-menu t gp-menu-info widen narrow-to-region re-search-forward "
###" match-beginning 0] 7))
(defun gp-menu-scroll nil "\
Scroll the gp help window if it is visible" (interactive) (byte-code "Á⇦Â ⇦ÃÄ!Ŷ$Å ÆÄ!⇦Çd!◰ebŵÈ ⇦É!)" [wind nil gp-menu-info get-buffer-window "*gp-help*" selected-window switch-to-buffer-other-window pos-visible-in-window-p scroll-up select-window] 8))